home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d897.lha
/
EPP
/
PModules
/
skipToEDelim.e
< prev
next >
Wrap
Text File
|
1993-06-26
|
519b
|
27 lines
OPT TURBO
PROC skipToEDelim (theString, pos)
DEF length, c
/* Finds the next E delimiter in theString and returns its position. */
length := StrLen (theString)
WHILE pos < length
c := theString [pos]
IF ((c > 64) AND (c < 90)) /* A-Z */
NOP
ELSEIF ((c > 96) AND (c <123)) /* a-z */
NOP
ELSEIF ((c > 47) AND (c < 58)) /* 0-9 */
NOP
ELSEIF c = 95 /* underscore */
NOP
ELSE
RETURN pos
ENDIF
INC pos
ENDWHILE
ENDPROC pos
/* skipToEDelim */